Option Explicit
Sub B_Sample033()
    Dim myWb       As Workbook
    Dim i        As Long
    Dim myBaseName As String
    Set myWb = Workbooks(1)			'Nï
    myBaseName = myWb.Name
    i = InStrRev(myBaseName, ".")
    If i > 0 Then myBaseName = Left(myBaseName, i - 1)
    MsgBox myBaseName
    Set myWb = Nothing				'
End Sub
